How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act3/00063_victory.ls

Text File | 1995-03-28 | 444 b | 27 lines

on exitFrame
  global WhichBug, lev, TRIAL
  set TRIAL to 1
  updateStage()
  set WhichBug to WhichBug + 1
  if lev = 1 then
    if WhichBug > 2 then
      go("hurrah")
      exit
    end if
  end if
  if lev = 2 then
    if WhichBug > 4 then
      go("hurrah")
      exit
    end if
  end if
  if lev = 3 then
    if WhichBug > 6 then
      go("hurrah")
      exit
    end if
  end if
  put EMPTY into field "changer"
  go("levela" & lev)
end